home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasic_1.zip / BAS_LIST.EXE / TYPING8.BAS < prev    next >
BASIC Source File  |  1992-07-10  |  448b  |  26 lines
  1.  
  2. SUB titlescreen
  3. SCREEN 8
  4. COLOR 2, 4
  5. CLS
  6. DIM title#(999)                                'title(700) without variable
  7. LOCATE 5, 5
  8. PRINT "THIS IS CHARLES'S TYPING TEACHER!"
  9. GET (5, 5)-(292, 38), title#
  10. PUT (5, 5), title#
  11.  FOR y = 0 TO 165 STEP 9       'step is temporary
  12.      PUT (5, y), title#
  13.      PUT (5, y), title#
  14.  NEXT y
  15. ERASE title#
  16. LOCATE 13, 9
  17. PRINT "PRESS ANY KEY TO BEGIN"
  18.  
  19. DO WHILE INKEY$ = "": LOOP
  20.  
  21.  
  22.  
  23.  
  24. END SUB
  25.  
  26.